home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / thtmt227.arj / PURGE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-15  |  4KB  |  226 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     FDefIn 1
  39.     :LABEL001
  40.     StartDisp 1
  41.     STRING001 = 3
  42.     INTEGER001 = 0
  43.     INTEGER002 = 0
  44.     INTEGER003 = 0
  45.     INTEGER004 = 0
  46.     INTEGER005 = 3
  47.     INTEGER006 = 2
  48.     FOpen 1, PPEPath() + "tht-info.cfg", 0, 0
  49.     FGet 1, STRING002
  50.     FClose 1
  51.     Cls
  52.     FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  53.     :LABEL002
  54.     If (Ferr(1)) Goto LABEL003
  55.     FGet 1, STRING005
  56.     AnsiPos INTEGER006, INTEGER005
  57.     PrintLn STRING005
  58.     Inc INTEGER005
  59.     If (INTEGER005 > 19) Then
  60.         INTEGER006 = INTEGER006 + 24
  61.         INTEGER005 = 3
  62.     Endif
  63.     Goto LABEL002
  64.     :LABEL003
  65.     FClose 1
  66.     STRING006 = ""
  67.     AnsiPos 5, 21
  68.     InputStr "@X0EWhich User to Purge", STRING006, 14, 45, Mask_Ascii(), 4 + 8
  69.     If (STRING006 == "") Goto LABEL009
  70.     FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  71.     :LABEL004
  72.     If (Ferr(1)) Goto LABEL005
  73.     FGet 1, STRING005
  74.     If (STRING006 == STRING005) Then
  75.         FClose 1
  76.     Else
  77.         Goto LABEL004
  78.         :LABEL005
  79.         Newlines 2
  80.         PrintLn "Did not Find " + STRING006 + " In the LIST !!!!"
  81.         FreshLine
  82.         Wait
  83.         FClose 1
  84.         Goto LABEL001
  85.     Endif
  86.     Tokenize STRING006
  87.     If (TokCount() == 3) Then
  88.         GetToken STRING007
  89.         GetToken STRING008
  90.         GetToken STRING009
  91.         STRING007 = Strip(STRING007, " ")
  92.         STRING008 = Strip(STRING008, " ")
  93.         STRING007 = Strip(STRING007, ".")
  94.         STRING008 = Strip(STRING008, ".")
  95.         STRING009 = Strip(STRING009, ".")
  96.         STRING009 = Strip(STRING009, " ")
  97.         STRING007 = Left(STRING007, 3)
  98.         STRING008 = Right(STRING009, 4)
  99.     Else
  100.         GetToken STRING007
  101.         GetToken STRING008
  102.         STRING007 = Strip(STRING007, " ")
  103.         STRING008 = Strip(STRING008, " ")
  104.         STRING007 = Strip(STRING007, ".")
  105.         STRING008 = Strip(STRING008, ".")
  106.         STRING007 = Left(STRING007, 3)
  107.         STRING008 = Right(STRING008, 4)
  108.     Endif
  109.     FClose 2
  110.     Cls
  111.     AnsiPos 7, 1
  112.     PrintLn "@X7ENew User@X7F'@X7Es Purge @X7Ffrom @X74Master Beta @X7F@ @X74<<@X7ETHT@X74>>@X07"
  113.     AnsiPos 30, 2
  114.     PrintLn "@X1Fv 1@X1F.@X1C00@X07"
  115.     AnsiPos 6, 3
  116.     PrintLn "@X34@X08╔════════════════════════════════════════════════════╗@X07"
  117.     AnsiPos 6, 4
  118.     PrintLn "@X08║  @X3E@X0E" + STRING006 + "@POS:25@" + "  " + "@POS:59@@X08║@X07"
  119.     AnsiPos 6, 5
  120.     PrintLn "@X34@X08╚════════════════════════════════════════════════════╝@X07"
  121.     FreshLine
  122.     STRING010 = ""
  123.     InputStr "@X0EAre you Sure ", STRING010, "", 1, "YyNn", 8 + 4
  124.     If (STRING010 == NoChar()) Goto LABEL001
  125.     If (STRING010 == YesChar()) Goto LABEL000
  126.     FOpen 1, PPEPath() + "apps\waiting.app", 2, 0
  127.     FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0
  128.     :LABEL006
  129.     If (Ferr(1)) Goto LABEL007
  130.     FGet 1, STRING004
  131.     If (STRING004 == "") Goto LABEL008
  132.     If (STRING004 == STRING006) Then
  133.         PrintLn 
  134.     Else
  135.         FPutLn 2, STRING004
  136.     Endif
  137.     Goto LABEL006
  138.     :LABEL007
  139.     FClose 2
  140.     :LABEL008
  141.     FClose 1
  142.     FClose 2
  143.     Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app"
  144.     Delete PPEPath() + "APPS\waiting.tmp"
  145.     Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + ".vot"
  146.     Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + ".GRP"
  147.     Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + ".cmt"
  148.     For STRING003 = STRING002 To 1 Step -1
  149.         Delete PPEPath() + "apps\" + STRING007 + "_" + STRING008 + "." + STRING003
  150.     Next
  151.     Goto LABEL001
  152.     :LABEL009
  153.     FClose 1
  154.     FClose 2
  155.     End
  156.  
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Usage report (before postprocessing)
  160. ;
  161. ; ■ Statements used :
  162. ;
  163. ;    1       End
  164. ;    2       Cls
  165. ;    1       Wait
  166. ;    22      Goto 
  167. ;    27      Let 
  168. ;    8       PrintLn 
  169. ;    12      If 
  170. ;    4       FOpen 
  171. ;    1       FAppend 
  172. ;    10      FClose 
  173. ;    4       FGet 
  174. ;    1       FPutLn 
  175. ;    1       StartDisp 
  176. ;    5       Delete 
  177. ;    2       InputStr 
  178. ;    1       Inc 
  179. ;    1       Newlines 
  180. ;    1       Tokenize 
  181. ;    5       GetToken 
  182. ;    7       AnsiPos 
  183. ;    2       FreshLine
  184. ;    1       FDefIn 
  185. ;    1       Copy 
  186. ;
  187. ;
  188. ; ■ Functions used :
  189. ;
  190. ;    3       -
  191. ;    39      +
  192. ;    7       ==
  193. ;    1       <
  194. ;    1       <=
  195. ;    1       >
  196. ;    2       >=
  197. ;    8       !
  198. ;    2       &&
  199. ;    1       ||
  200. ;    2       Left()
  201. ;    2       Right()
  202. ;    3       Ferr()
  203. ;    1       NoChar()
  204. ;    1       YesChar()
  205. ;    10      Strip()
  206. ;    1       Mask_Ascii()
  207. ;    12      PPEPath()
  208. ;    1       TokCount()
  209. ;
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Analysis flags : No flag
  213. ;
  214. ;------------------------------------------------------------------------------
  215. ;
  216. ; Postprocessing report
  217. ;
  218. ;    1       For/Next
  219. ;    0       While/EndWhile
  220. ;    4       If/Then or If/Then/Else
  221. ;    0       Select Case
  222. ;
  223. ;------------------------------------------------------------------------------
  224. ;                 AEGiS Corp - Break the routines, code against the machines!
  225. ;------------------------------------------------------------------------------
  226.